 BeoLigatures                                                   TEXTttxt           'Q  X F                       e  REM ------------------------------------------------------------------
REM This macro for Word for the Mac 6.0 inserts ligatures and
REM ligature-like combinations in files that use the Beowulf-1 font.
REM It probably should not be altered, since the order of the replace
REM operations is important.
REM ------------------------------------------------------------------

Sub MAIN
REM Turn off screen to speed up macro.
ScreenUpdating 0
REM ------------------------------------------------------------------
REM The next line assumes that everything in the file is in Beowulf-1.
REM If there are other fonts in the file, comment out the line and
REM copy the "EditFindFont" statement from the head of the next
REM section.
REM ------------------------------------------------------------------
EditFindClearFormatting
EditReplaceClearFormatting
REM ------------------------------------------------------------------
REM The  character in Beowulf-1 is an alternate shape of eth, designed
REM to form ligatures with certain preceding characters.
REM ------------------------------------------------------------------
EditReplace .Find = "b", .Replace = "b", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "c", .Replace = "c", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "f", .Replace = "f", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "h", .Replace = "h", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "i", .Replace = "i", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "m", .Replace = "m", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "n", .Replace = "n", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "o", .Replace = "o", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "p", .Replace = "p", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "r", .Replace = "r", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "s", .Replace = "s", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "u", .Replace = "u", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "w", .Replace = "w", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "x", .Replace = "x", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "y", .Replace = "y", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "Ĕ", .Replace = "", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
REM ------------------------------------------------------------------
REM Now replace certain letter-combinations with ligatures from
REM Beowulf-1-Alt. First set up the font to find and the one to
REM replace.
REM ------------------------------------------------------------------
EditFindFont .Points = "", .Underline = - 1, .Color = - 1, .Strikethrough = - 1, .Superscript = - 1, .Subscript = - 1, .Hidden = - 1, .SmallCaps = - 1, .AllCaps = - 1, .Spacing = "", .Position = "", .Kerning = - 1, .KerningMin = "", .Tab = "0", .Font = "Beowulf-1", .Bold = - 1, .Italic = - 1
EditReplaceFont .Points = "", .Underline = - 1, .Color = - 1, .Strikethrough = - 1, .Superscript = - 1, .Subscript = - 1, .Hidden = - 1, .SmallCaps = - 1, .AllCaps = - 1, .Spacing = "", .Position = "", .Kerning = - 1, .KerningMin = "", .Tab = "0", .Font = "Beowulf-1-Alt", .Bold = - 1, .Italic = - 1
EditReplace .Find = "", .Replace = "", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "ea", .Replace = "a", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "ec", .Replace = "c", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "ef", .Replace = "f", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "eg", .Replace = "h", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "em", .Replace = "m", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "en", .Replace = "n", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "eo", .Replace = "o", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "ep", .Replace = "p", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "er", .Replace = "r", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "es", .Replace = "s", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "et", .Replace = "t", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "ew", .Replace = "v", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "a", .Replace = "", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "o", .Replace = "", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "a", .Replace = "", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "o", .Replace = "", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "c", .Replace = "C", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "f", .Replace = "F", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "g", .Replace = "H", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "m", .Replace = "M", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "n", .Replace = "N", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "p", .Replace = "P", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "r", .Replace = "R", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "s", .Replace = "S", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "t", .Replace = "T", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "w", .Replace = "V", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
REM ------------------------------------------------------------------
REM Now we are putting in s-ligatures, which are in the Beowulf-1 font.
REM Since there is now more than one font in the document, we must look
REM only for Beowulf-1; the next line means we will be replacing with
REM Beowulf-1, not Beowulf-1-Alt.
REM ------------------------------------------------------------------
EditReplaceClearFormatting
EditReplace .Find = "", .Replace = "%", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "l", .Replace = "$", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "h", .Replace = "@", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
EditReplace .Find = "k", .Replace = "#", .Direction = 0, .MatchCase = 1, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 1, .Wrap = 1
ScreenUpdating 1
End Sub
                                                    &  
&   2 -|raw UHk HnHl //HlBeoLigatures   PartSIT!        PartSIT!                               XNO Y//. ///< p *.fpf7|  <9|  :9|  8`Bk <Jg7G <-G LN^ _O NNVH8&n | J g + 	g
,<`   
"      
 
             F 
 
             G 
 
              
 
              
 
              
 
              
 
             
 
             
 
            , 
 
            - 
 
            s 
 
            u 
 
            } 
 
            ~ 
 
             
 
             
 
             
 
             
 
             
 
             
 
            C 
 
            D 
 
             
 
             
 
             
 
             
 
             
 
             
 
             
 
             
 
            2 
 
            3 
 
            M 
 
            N 
 
             
 
             
 
             
 
             
 
             
 
             
 
            \ 
 
            ] 
 
             
 
              
 
             
 
             
 
            E 
 
            F 
 
             
 
             
 
             
 
             
 
            . 
 
            / 
 
             
 
             
 
            	t 
 
            	u 
 
            
 
 
            
 
 
            
 
 
            
 
 
            ] 
 
            ^ 
 
              
 
             
 
             
 
             
 
            
F 
 
            
G 
 
            
 
 
            
 
 
             
 
             
 
             
 
             
 
             
 
             
 
            S 
 
            T 
 
            ` 
 
            a 
 
             
 
             
 
             
 
             
 
             
 
             
 
             
 
             
 
            < 
 
            = 
 
             
 
             
 
             
 
             
 
            " 
 
            # 
 
             
 
             
 
            f 
 
            g 
 
             
 
            	 
 
             
 
             
 
            L 
 
            M 
 
             
 
             
 
             
 
             
 
            2 
 
            3 
 
             
 
             
 
            v 
 
            w 
 
             
 
             
 
             
 
             
 
            \ 
 
            ] 
 
             
 
             
 
             
 
             
 
            B 
 
            C 
 
             
 
             
 
              
 
              
 
            !( 
 
            !) 
 
            ! 
 
            ! 
 
            "l 
 
            "m 
 
            # 
 
            # 
 
            #U 
 
            #V 
 
            # 
 
            # 
 
            # 
 
            # 
 
            $+ 
 
            $, 
 
            $M 
 
            $N 
 
            $ 
 
            $ 
 
            $ 
 
            $ 
 
            %Q 
 
            %R 
 
            % 
 
            % 
 
            & 
 
            & 
 
            '7 
 
            '8 
 
            'H 
 
            'I 
 
            'P 
 
               &  
&   2 #    2  styl   
      L                                        